home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Retrace.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.0 KB  |  59 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:06 PM
  5.     Retrace.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1985-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Retrace;
  19.     INTERFACE USES    Types,OSUtils;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. FUNCTION GetVBLQHdr: QHdrPtr;
  37.     INLINE $2EBC,$0000,$0160;
  38. FUNCTION SlotVInstall(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr;
  39.     INLINE $301F,$205F,$A06F,$3E80;
  40. FUNCTION SlotVRemove(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr;
  41.     INLINE $301F,$205F,$A070,$3E80;
  42. FUNCTION AttachVBL(theSlot: INTEGER): OSErr;
  43.     INLINE $301F,$A071,$3E80;
  44. FUNCTION DoVBLTask(theSlot: INTEGER): OSErr;
  45.     INLINE $301F,$A072,$3E80;
  46. FUNCTION VInstall(vblTaskPtr: QElemPtr): OSErr;
  47.     INLINE $205F,$A033,$3E80;
  48. FUNCTION VRemove(vblTaskPtr: QElemPtr): OSErr;
  49.     INLINE $205F,$A034,$3E80;
  50.  
  51.  
  52.     { UsingRetrace }
  53.  
  54.  
  55.     IMPLEMENTATION
  56. END.
  57.  
  58.  
  59.